home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / anim2.arc / ANIM7.BAS < prev    next >
BASIC Source File  |  1990-08-18  |  212b  |  13 lines
  1. 5 KEY ON
  2. 10 SCREEN 1
  3. 20 CLS
  4. 22 LINE (1,180)-(319,199),2,BF
  5. 25 LET F=INT(RND*300)+1
  6. 30 CIRCLE (F,Y),4,1
  7. 40 CIRCLE (F,Y),4,0
  8. 50 Y=Y+9
  9. 60 IF Y>182 THEN GOTO 80
  10. 70 GOTO 30
  11. 80 NOISE 4,14,1
  12. 90 Y=1:GOTO 25
  13.